home *** CD-ROM | disk | FTP | other *** search
- echo off
- echo Warning! Fetch will allow you to copy records more than once.
- echo Read the instructions in the manual carefully before using.
- echo To escape hit "Ctrl-C".
- echo Note: Records will be copied FROM drive A and TO the default drive (B or C).
- pause Strike any key when ready.....
- if exist a:d.l goto :normal
- echo There are no Deduct-a-Matic records on the diskette in Drive A
- goto :exit
- :normal
- if not exist d.l copy a:d.l dtemp.l
- if exist d.l copy a:d.l+d.l dtemp.l
- if exist dtemp.l goto :cont
- echo There is not enough room to copy the records.
- echo Please try another diskette with more room.
- goto :exit
- :cont
- copy dtemp.l d.l
- echo The records from the diskette in Drive A have been copied.
- echo To fetch records from another diskette, hit F3 then hit return when ready.
- :exit
- echo on